home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / ERRLEV1.BAS < prev    next >
BASIC Source File  |  1992-08-10  |  219b  |  8 lines
  1. 'Purpose : To exit program returning an error level
  2.  
  3. DECLARE SUB ExitWithRC ALIAS "_exit" (BYVAL RC AS INTEGER)
  4.  
  5. 'Just set ErrLev% to the errorlevel you want or just ExitWithRC 13
  6. ErrLev% = 13
  7. ExitWithRC ErrLev%
  8.